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INTRODUCTION 


OVERVIEW 


Fun-FORTH is a special collection of FORTH words (commands) for use with EXTENDED 
fig-FORTH (APX-20029) by Patrick L, Mullarky,. The programming (especially game 
programming) tools in fun~FORTH include words facilitating advanced sound generation, 
simple turtle graphics, use of the Joystick and Paddle Controllers, and use of the 
console keys and the keyboard, It also contains words supporting timekeeping, random 
number generation, creation of arrays, recursion, and other useful functions. 


Fun-FORTH also contains QuadraSketch, a small drawing program demonstrating use of 
various fun-FORTH words. 
REQUIRED ACCESSORIES 
24K RAM 
ATARI 810 Disk Drive 
EXTENDED fig-FORTH (APX-20029) 
OPTIONAL ACCESSORIES 
One ATARI Joystick Controller 
One set of ATARI Paddle Controllers 
CONTACTING THE AUTHOR 
Users wishing to contact the author about fun-FORTH may write to him at! 


1096 George Court 
Merrick, NY 11546 


LOADING fun-FORTH 


GETTING STARTED 


1, Remove any cartridge from the cartridae slot of your computer. 


Z. Turn on your disk drive. When the BUSY liqht qoes out, place the EXTENDED fiq-FORTH 
diskette in the drive and turn on your computer, 


3. The program will load into memory and the prompt "fiq-FORTH 1.1" will display when the 
load is complete, Press the RETURN key to display the standard FORTH prompt “ok", 


4. Now you may load any of the following packages from diskette, Use the appropriate 
number before the LOAD command and press RETURN after typing each command, 


39 LOAD 


27 LOAD: 


30 LOAD 
2l LOAD 
81 LOAD 
60 LOAD 


CASSEMELER > 
(EDITOR) 
(GRAFHICS > 
(DEBUG) 
(OPERATING SYS.) 
(FLOATING-FOINT > 


S&S, To use fun-FORTH, load the ASSEMBLER and GRAPHICS Packages. If you plan to program, 
the EDITOR is necessary and the DEBUG packace is very useful, : 


Notes. 


a. In loading the packaqes, ignore any "isn’t unique" messages. These are supposed 


to appear, 


b. Once you start loading screens, don’t press the SYSTEM RESET button, It will 
erase what you’ve loaded, 


& When you finish loading in the packages you want from EXTENDED fiq-FORTH, remove the 
diskette and insert the fun-FORTH diskette, 


7. Type 


70 LOAD 


and press RETURN. An introductory messaqe will appear, followed by a request to type I to 
display an index of the names of all the screens available in fun-~FORTH, or type anything 
else to exit fun-FORTH. (To display the screen index at other times, type 142 INDEX ,) 
The screen index looks as follows} 
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) 
Joystick Words fium-FORTH >) 
Feddle Words fum-FORTH ) 
<eyboard Words fun-FORTH > 
Console Words funm-FORTH ) 
Time Words fum-FORTH >) 


UNUSED screens 7-13 ) 


OnomkrpWNr © 
nA ANNAN RR 


~~ NON NON 


~~ OOO 


Pa a ae in a a ai 


ERROR MESSAGES 
ERROR MESSAGES 
UNUSED screens 16-19 > 


Sourd 
Sound 
Sound 
Sound 
Sound 
Sound 


Ti 
IT: 


IVs 
Vs 
VTi 


UNUSED screens 


Grfx Ii 

Grfx IT: 
Grfx IIT: 
Grfx IV3 
Grfx V3 

Grfx VIt 
Grfx VIT3 


IIT: 


fig@-FORTH 
fig-FORTH 


Basics fum-FORTH 
Noises fum-FORTH 
16 bits furn-FORTH 
EffectA fun-FORTH 
Effect fum-FORTH 
Warp fun-FORTH 
26-29 ) 
Basics fun-FORTH 
Color fun-FORTH 
Turtlet fun-FORTH 
Turtle2 fun-FORTH 
Turtle3 fum-FORTH 
Boxes fun-FORTH 
Gr.1l&Z fun-FORTH 


UNUSED screens 37-39 )} 


Special Words I 
Special Words IT 
UNUSED screens 427-49 ) 


fun-FORTH 
fun-FORTH 


fun-FORTH imtro screen 


QuadraSketcn QSK 


QSK 
QSk 
QSK 
QSK 
QsSk 
QSkK 


page 
pege 
page 
Page 
Page 
P3eQge 


NO& ChbOM 


JQUUNBZ 
JQJUNB2 
JQJUNBZ 
JQJUN82 
JQUJUNSZ 
JQJUNBZ 
JQJUNBZ 


en nial 


A i i al 


8. Type 
1 LOAD 


and press RETURN to load in the first screen of fun-FORTH. The screen contains, among 
other things, the word LOADS (see the word description later in this manual), which lets 
you load multiple screens. 


9, Start your use of fun-FORTH by loading all its screens. Type the following commands 
and press RETURN after each one} 


2 6 LOADS (joystick, paddle, keyboard, comsole, amd time words: 
20 25 LOADS (sound words) 

30 36 LOADS (graphics and turtle words) 

40 41 LOADS (special words) 


Note. You may load parts of fun-FORTH, if you wish. Before loading a screen {using n 
LOAD where "n" is a screen number), list the screen (using n LIST ), If the second 
line of the listing contains the message 


XXX NEEDS SCREEN(S) 


you must load in the required screen(s) first. 


CREATING YOUR OWN VERSIONS OF FORTH 


Follow the loading instructions above to load in the FORTH kernel and the desired 
packages from EXTENDED fig-FORTH and fun-FORTH. To save this custom collection on 
diskette for future use, insert a DOS-IT formatted diskette into disk drive 1, type! 


SAVE 


and press RETURN. This new copy of FORTH, like the original diskette, will load 
automatically. You might want to label this version "MYFORTH". 


You may want to make different versions of the MYFORTH diskette later on (by loading 
different screens fram EXTENDED fig-FORTH and fun-FORTH) for different purposes. You can 
copy the MYFORTH diskette by loading it into memory and then saving it on a new dikette 
(using the SAVE command). 


SETTING UP A DISKETTE TO PROGRAM 
You might want to set up a diskette for programming purposes, especially if you plan ta 
use the EDITOR, Follow the loading instructions above and, with the fun-FORTH diskette 
inserted in disk drive 1, type! 


14 LIST MARK 15 LIST MARK 


and press RETURN. Then insert a different DOS-II formatted diskette in disk drive 1 and 
type! 


- FLUSH 


and press RETURN. These steps save two screens of error messages to the new diskette. 
You might want to label this diskette "MYSCREENS", 


Note. You can copy the MYSCREENS diskette by using the DISKCOPY utility in fig-FORTH, 


USING THE VARIOUS FORTH DISKETTES 


During a normal programming session, you would load the MYFORTH diskette into memory, 
then insert the MYSCREENS diskette, and do your programming using the EDITOR. In this 
way, all screens are free, except for 14 and 15, where the error messages are, 


fun—FORTH WORDS 


INTRODUCTION 


This section describes all the Fun-FORTH screens and words. It also includes some 


examples of correct usage, The explanations are in the order they appear on fun-FORTH 
screens, 


The explanations consist of the screen listing, a general explanation about the screen’s 
contents, and the word descriptions for that screen, 


Word Descriptions 
The word descriptions contain the following sections! 


1, The name of the word and its standard FORTH stack diagram. For example, in the 
diagram 


mio m2 -- 3 


"--" represents the word, "nl" and "n2" are parameters on the stack prior to 
execution of the word, and "n3" is a parameter returned by the word after its 
execution. The rightmost parameters are on top of the stack, The parameters in the 
stack diagram usually have meaningful names, such as "joystick#", instead of "n1". 
If a word has no parameters, the stack diagramis "--", 


2. An example of a simple, standard use of the word, with values that correspond to 
the parameters in the stack diagram. For words that return values, like STICK (a 
joystick word), a period (.) followed by a number and the prompt "ok" are used to 
represent the printing of the returned value. If a word has no parameters, the 
example line contains the phrase "no parameters", 


3. A description of the word, 
4, Warnings and comments that may help debugging and program design. 


“+ An additional example of word usage. Use these examples as a starting point for 
your own experimentation. Remember to load the screen on which the word appears. 


SCREEN #1 


OY 
) 


DONO CSBONH OF 


1 

funm-FORTH by Joel Gluck 1982 ) 

Type 50 LOAD for intro. ) 

LOADS 1+ SWAF DO I LOAD LOOF 

firstscreen lastscreen --  ) 

ARRAY <BUILDS i+ DUF + ALLOT 

DOES: SWAF DUF + + 3$ 

to create? size -- XXX ) 

to store! val imdex XXX ! ) 
) 
} 


ee 


2 oN Oe NN oN hh 


to retrieve! index XXX @ 

to print? index XXX ? 

ranges 0 <= index <= size ) 
RND -11766 C@ -117466 C@ 256 x 
12 + SWAF MOD AES ;} 

range -- random ) 

DELAY «= DO 10 0 DO LOOP LOOF 3; 
length -- > 35 


SL a a a D 


as 
+ 
“~~ +o ON 


Screen #1 contains some of the most frequently used words in fun-FORTH. 


LOADS  firstscreen lastscreen —- 
Example? 20 25 LOADS 


Loads multiple FORTH screens from diskette, starting with firstscreen and ending 
with lastscreen, 


Warning. Don’t use on EXTENDED fig-FORTH screens connected to one another by 
Nen>", Just load the first one in those cases. 


ARRAY 
Example! 5 ARRAY MYGRADES 
Creates an array named MYGRADES capable of storing 4 values (0-5), 
To create an array! size ARRAY XXX 
To store a value! value index XXX ! 
To retrieve avalue? index XXX @ 


To print a value; index XXX ? (where index ranges from 0 to size.) 


RND range -- random+# 
Example! SRND. 2 ok 
Returns a random number from 0 to range minus 1, 


Comment, If a random byte is needed (0-255), use -11766 C@. It’s faster, 


DELAY length -- 
Example: 900 DELAY 
Produces a pause in execution for a time proportional to length. 


Comment. 10000 DELAY equals about 13 seconds, 


SCREEN #2 


SCR # 2 
0 ¢ Joystick Words fum-FORTH >} 
1 ¢ STICK 632 + C@ $} 
2 ¢ joystick# -- value <*xBASICx ) 
3 3 STRIG 644 + C@ 3 
4 ¢( joystick# -- o/1 “<*BASICK ) 
ba] 
é 0 VARIABLE JOYXY -2 ALLOT 1 , 
7 -15,60,0,1,-71,0,0606~, 
SB 13 =h»y Os 1 > te 1 ee 0 > 
Y eli poh» el» 0% 2 4 Os 05 
10 $ XSTK STICK 6 + DUF + 
11 JOYXY + @ $ 
12 ( joystick# -- -1/0/i ) 
13 $ YSTK STICK & -— DUF + 
14 JOYXY + @ 3} 
15 ¢ joystick# -- -1/0/1 ) $S 


Screen #2 contains all four joystick words. 


STICK joystick# -- value 
Example: OSTICK. 15 ok 
Similar to the STICK() function in ATARI BASIC, this word returns the value of the 


specified joystick. Refer to page 460 of the BASIC Reference Manual for the 
directional meaning of the value. 


STRIG joystick# -- 0/1 
Example? 3STRIG. i ok 


Similar to the STRIG() function in ATARI BASIC, this word returns the trigger value 
of the specified joystick. Trigger down returns 0, and trigger up returns 1, 


Additional example. The following word waits until the trigger of the leftmost 
joystick is pressed} 


; TRIGWAIT BEGIN 0 STRIG 0= UNTIL } ( -- ) 
TRIGWAIT 
XSTK = joystick# -- -1/0/1 
Example? 1 XSTK. -1i ok 


Returns a value representing the horizontal component of the direction in which the 
specified joystick is being pulled. Left=-1, middle=0, and right=1, 


Comments, In combination with YSTK, this word is every game programmer’s (and 
most other programmers’) dream come true. In the past (especially in ATARI BASIC), a 
routine had to be written that either looked up the directional information in an 

array or figured it out with a series of IF/THEN statements, But with these 
fun-FORTH words, writing a simple joystick drawing program is really simple. 


Also notice that the directional values returned do match the direction of X-Y 
coordinate growth on the screen, 


Another advantage of using XSTK instead of STICK in a program needing only 
horizontal values is that XSTK also translates any accidental diagonals into the 
correct direction. 


YSTK joystick# -- -1/0/1 
Example: 2 YSTK. 0 ok 
The vertical counterpart to XSTK, this word returns the vertical component of the 
direction in which the specified joystick is being pulled. Up=-1, middle=0, and 


down=1, 


Comment. See the comments under XSTEK, 


SCREEN #3 


SCR # 3 
0 ¢ Faddle Words furn-FORTH >) 
1 
Zz $ PADDLE 624 + C@ ; 
3 € paddlet -- value <KEASTICK ) 
4 
S 3 FTRIG 636 + C@ } 
6 ¢( paddle#t -- O/1 “<XBASICx ) 
7 
8 3S 
9 
10 
il 
12 
13 
14 
15 


Screen #3 contains the two paddle words. 


PADDLE  paddle# -- value 
Example! 0 PADDLE. 210 ok 
Similar to the PADDLE( ) function in ATARI BASIC, this word returns the value of the 


specified paddle. This value ranges from 1 to 228 . For more information about this 
function, see page 59 of the BASIC Reference Manual. 


PTRIG  paddlet# -- 0/1 
Example! 7 PTRIG. 0 ok 


Similar to the PTRIG( function in ATARI BASIC, this word returns the trigger value 
of the specified paddle. Trigger down returns 0, and trigger up returns 1. 
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SCREEN #4 


183] 
3 
al 


DONO CO bON HO 7 


( 
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KEYINIT 255 764 C! 3 
-— “clears i-key buffer >) 


KEYED? 764 C@ 255 < }3 
=o 075 2 


FAKTC KEYINIT BEGIN KEYED? 
UNTIL KEYINIT 3 
-— “Fush Ang Key To Cont. 


Y/N KEYINIT 0 BEGIN DROF 
KEY DUF 89 = DUF ROT 78 = 


Screen #4 contains four useful words to aid in keyboard 1/0, 


KEYINIT -- 


no parameters 


Used in conjunction with KEYBD? , this word clears the one-key buffer, 


KEYBD? -- 0/1 


Example! KEYBD?. 
Returns a i (true) if a key was pressed or a 0 (false) if a key wasn’t pressed. 


Comments. It’s sometimes useful to execute KEYINIT before and after using KEYBD? 


to clear the buffer. 


Note that KEYBD? operates “on the fly". That is, it won’t delay further execution, 


PAKTC -- 


no parameters 


This word waits until any key (excluding SHIFT, CNTRL, BREAK, and the console keys) 


1 ok 


is pressed and then allows execution to continue. 


Comments. The difference between PAKTC and KEY DROP is that PAKTC is silent (that 


is, no key click is produced), 


-1tt- 


PAKTC stands for Push Any Key To Continue. 


Y/N --O/1 
Example! Y/N. Ook 


This word waits until a "Y" or an "N" is pressed. A "Y" returns a 1 (true), and an 
“N" returns a 0 (false), Any other key pressed has no effect, 


Comment. Use of this word usually follows a "yes/no" question posed on the screen. 
Note that this word doesn’t echo the typed character on the screen, 
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SCREEN #5 


33) 
iw 
Pn) 


CS 


( Console Words fun-FORTH ) 


7 


CONSOLE? S3279 C@ 3} 
( -—- value ) 


START? CONSOLE? 2 MOD O= 


ee 


CON OCAEBONE OS 
of 


( -- 0/1 >) 
+ SELECT? CONSOLE? 2 / 2 MOD O= } 
C=- 0/1 ) 
10 
11 : OF TION? CONSOLE? 4 / 2 MOD O= 3 
LZ Coe 674.) 35 
13 
14 
15 


Screen #5 contains the four words affecting the yellow console keys on the far right-hand 
side of the ATARI Computer keyboard, 


CONSOLE? -- value 
Example! CONSOLE?. 7 ok 


Returns the value of the CONSOL byte (location 53279), 


START? --O/! 
Example? START?. 1 ok 
Returns a 1 if the START key is being pressed, and a 0 if it isn’t. 


Additional example. The following word waits until the START key is pressed! 


: STWAIT BEGIN START? UNTIL } ( -- ) 
STWAIT 


SELECT? -- 0/1 
Example} SELECT?. 0 ok 


Returns a 1 if the SELECT key is being pressed, and a 0 if it isn’t, 
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OPTION? -- 0/1 
Example} OPTION?. 1 ok 


Returns a 1 if the OPTION key is being pressed, and a 0 if it isn’t, 
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SCREEN #6 


3 
7 


ODON OG UDAONF OD 
“~~ 


+ 
¢ 


@ 
° 


Cd 


Screen #6 contains two useful words to perform timing (in seconds). 


& 
Time Words furn-FORTH 


SECONDS 20 C@ S->D 19 C@ 2564 
Mx D+ 60 M/ SWAF DROF } 
~- $s5ecs ) 


SETIME 60 * 2546 /MOD 19 C! 
20 C! 3 
#secs -—— ) 35 


SECONDS -- #s5econds 


Example! SECONDS. 59 ok 


Returns the current time (originally set by SETIME) in seconds. 


SETIME #seconds -- 


Example: 06 SETIME 


Sets the current time (in seconds), 


Comment. The most common use of SETIME is 0 SETIME, although other values are 


useful to continue timing after some break in the action. 


Additional example. The following word pauses for the supplied number af seconds! 
+ TPAWZ 0 SETIME BEGIN DUP SECONDS = UNTIL DROP } ( sec -- ) 


10 TPAWZ 


) 


SCREEN #20 


Ww 
iz) 


SOND CHRON © A 


20 

Sound Ti EBEaesics fum-FORTH ) 
FILTER! 33768 C! $} € n -- ) 
SINIT 3 533775 C! 3 562 C! 

0 FILTER! 3 

== “initializes for sound ) 
SOFF DUP + 0 SWAP 53761 + C! } 
voc -~- ) 

ASOFF 4 0 DO I SOFF LOOF $+ 

-— “shuts off 311 voices ) 


+o 40 WN Gk 


o~ ee NN Oe ON 


_ 
o 
oe 


SND SWAP 16 * + ROT DUF + 
1i 33760 + ROT OVER C! 1+ C! 3 


12 ¢€ voc frq tim vol -- ) 

13 ¢€ called SOUND in *xEBASICx ) 

14 3 FREQ SWAF DUP + 53760 + C! 3 
15 ¢( voc frq -—- ) 3S 


Screen #20 contains the basic sound words, These take the place of the original sound 
words supplied with EXTENDED fig-FORTH, which you shouldn’t load. 


FILTER! n-- 
Example! 0 FILTER! 


Pokes a value into the AUDCTL (audio-control) byte. For more information about 
AUDCTL, see page 7-9 of De Re ATARI (APX-90008), 


Comment. FILTER! is originally from EXTENDED fig-FORTH and is transcribed here for 
convenience. — ; 


SINIT -- 
no parameters 


Initializes for sound use. Re-execute after any external I/O, including diskette 
access. 


SOFF voc -- 
Example! 1 SOFF 
Shuts off the specified sound voice. 
Comment. SOFF is faster than SND in turning off sound. SOFF shuts off anly the 


AUDC byte, leaving AUDF intact. For more information about AUDC and AUDF, see pages 
7-2 and 7-3 of De Re ATARI, 
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ASOFF -- 
ho parameters 
Shuts off all of the sound voices, 


Comment. ASOFF can be a great relief! 


SND voc frq tim vol -- 
Example? 0 100 10 8 SND 


Similar to the SOUND command in ATARI BASIC, this word creates and sustains a sound 
based on the specified voice (0-3), frequency (pitch) (0-255), timbre (distortion) 


{0-14 even), and volume (0-15), For more information about SND, see page 57 of the 
BASIC Reference Manual. 


Comment, SND takes the place of the sound command in EXTENDED fig-FORTH. 


FREQ voc frq -- 
Example! 1255 FREQ 


Changes the frequency of the specified voice to a new specified frequency, It 
doesn’t effect the timbre or volume. 


Comment, FREQ is significantly faster than SND for changing just the frequency, 
Additional example, The following word makes an “alien attack" type sound effect. 


‘ ALIEN 00 10 15 SND 10 0 DO 254 0 DO 0 I FREQ LOOP LOOP 0 SOFF} 
ALIEN 


-1{7- 


SCREEN #21 


33) 
Oo 
a 


SON AU DAONF OD 


zZ21 

Sound IIT? Noises fun-FORTH ) 
XXX NEEDS SCREENS! 1,20 ) 
EOQOF 0 SWAF 10 8 SND 50 DELAY 
0 SOFF $} ¢ frq -- ) 

EBEUZZ 0 0 4 15 SND 125 DELAY 

0 SOFF 3; ¢( == 3) 

BELL 0 15 DO DUF O SWAF 10 I 
SND 30 DELAY -1 +LOOF DROF 

0 SOFF } ¢ fra -- ) 

EXPLODE SWAF 0 15 DO 2DUF 

10 0 SWAF 8 I SND DELAY -1 

11 +LOOF 2Z2DROF 0 SOFF 3 


oN! ab 


+ 


+e 


ad 


12 ¢ frq dur -- ) 

13 3 CLICK 0 33279 C! $ ¢ -- ) 

14 : SPOF 31 53741 C' 5 0 DO LOOF 
15 0 53761 C! 3 ( --— >) 35 


Screen #21 contains six useful and interesting noise effects that can make any program 
(game or serious) more enjoyable to use, 


BOOP frq-- 
Example! 150 BOOP 
Produces a short, pure tone at the desired frequency. 
Warning. BOOP essentially performs a 0 SOFF. It interferes with use of voice zero. 


Comment. You can use BOOP for anything--a ball bouncing against a wall, a unique 
keyboard feedback, you name it, 


BUZZ -- 
no parameters 


Produces a sharp, loud, beep noise (BEEP is a different, EXTENDED fig-FORTH word 
using the console speaker). 


Warning, See the warning under BOOP, 


Comment. BUZZ is great for error warnings and the like. 


BELL frq-- 
Example? 100 BELL 
Produces a bell-like sound of the desired frequency. 


Warning, See the warning under BOOP, 


-18- 


Comment. BELL is useful for acknowledging good input, 


EXPLODE  frq dur -- 
Example! 50 120 EXPLODE 


Produces an explosion noise at the desired frequency for a length of time 
proportional to dur, 


Warning, See the warning under BOOP. 


Comment. You could write a more useful word to produce the sound and a desired 
graphic effect simultaneously, 


CLICK -- 
no parameters 
Produces a small click from the console speaker. 
Comment. Many clicks in rapid succession produce an interesting buzz. 


Additional example. The following word produces a buzz from the console speaker 
for the desired length. 


+ BU2ZZ2 0 DO CLICK LOOP } (n--) 
2000 BUZZ2 


SPOP -- 
no parameters 
Produces a single “pop” from the TV speaker, 
Warning. SPOP interrupts use of voice zero, 


Comment. Many pops in succession with different small pauses in between can 


produce a wide range of unique noises. For more informationm see page 7-3 of De 
Re ATARI, 


Additional example, The following word produces a noise based on the supplied 
pause length. 


+ NOIZ 300 6 DO DUP SPOP 0 DO LOOP LOOP } ( dur -- ) 
10 NOIZ 
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SCREEN #22 
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MON OCU DOM OW 


22 

Sound IIIT? 16 bits fum-FORTH ) 
XXX NEEDS SCREEN! 20 ) 

SINITiI6 SINIT 120 FILTER! 
ASOFF } 

C= “init. for 16-bit smd ) 


orn ™ hh 


: SND16 SWAP 16 x + ROT DUF 4 x 
33763 + ROT SWAF C! SWAP 256 
“MOD ROT 4 * 53762 + DUF ROT 
SWAF C! 2 - Ci 3 

10 ¢€ voeOor1 fralé tim vol -- >) 


- 
ize] 


FREQi46d 254 /MOD ROT 4 x 
13 53762 + DUF ROT SWAF C! 
14 2 SG 

15 ¢ vocOori fraiéd -- ) $§ 


Screen #22 supplies you with a much wider sound range. In normal sound, frequency is 
defined by 8 bits (1 byte). The words on this screen allow a frequency defined by 16 bits 
(2 bytes), The advantages are much lower and higher frequencies than previously available 
and much finer increments between frequencies. The only disadvantage is that you can work 
with only two voices instead of four. For more information, see pages 7-10 and 7-11 of 
De Re ATARI. 
SINITiI6 -- 

no parameters 


Initializes for 16-bit sound. 


Warning, SINIT14 interrupts normal sound use. 


SND16 = vocdort frqi4 tim val -- 
Example! 0 3000 10 8 SND146 
Similar to SND except for two differences! 


1) There are only 2 voices (0 and 1), 
2) Frequency (frqi4) ranges from 0 to 65280. 


Warning. SINIT14 must be executed at least once before using SND1é6 or FREQ16. 


Additional examples, 


0 30000 10 15 SND14 (very low pure tone) 
008 15 SND14 (very fine white noise) 
ASOFF (to shut it off) 


FREQ1&é voc0ori frqié —- 
Example? 0 3200 FREQI4é 
Similar to FREG but with only two voices and a 16-bit frequency range. 
Warning. See the warning under SND1é, 
Additional example. The following word loops from 1000 to 1500 as frequencies, 


i TEST16 00 10 8 SND14 1500 1000 DO 0 I FREQ14 LOOP } ( —- ) 
SINIT14é 16 TEST ASOFF 
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Screen #23 contains the two SFXA (sound effect A) words. Using them, you can reproduce a 
wide range of sound effects (about 4.3 billion different ones!) that are all rhythmic and 
unusual, An extra advantage over normal methods is that the effect requires no 
maintenance} turn it on and it keeps going (until you shut it off), For a more detailed 
look at the method used, see page 7-12 of De Re ATARI, 
SFXA1 vol -- 

Example: 10 SFXA1 


Initializes for sound effect A using the specified volume, 


SFXAZ = frq frq frq frq -- 
Example: 10 9 255 50 SFXA2 
Produces unusual sound effects based on the four frequencies provided, 


Warning. SFXA1 must be executed at least once before using SFXA2. Also, use of 
these words interrupts normal sound. 


Comment. You can easily shut off any SFX with an ASOFF or SINIT followed by new 
sounds, 


Additional examples. The following examples only scratch the surface of what this 
word can do. 


SINIT 12 SFXA1 (execute these first) 
88 254 255 SFXA2 
4500 SFXA2 


' 301155 0 SFXAZ 
11254 255 SFXAZ 
48 48 155 154 SFXA2 
34 55 100 99 SFX A? 
49 50 0 0 SFXA2 

1 any# 0 255 SFXAZ 
ASOFF (shuts it aff) 
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(#24 
( Sound Vt Effect& fum-FORTH ) 
( xxx NEEDS SCREEN! 20 ) 


+ SFXEL 4 FILTER! ASOFF 160 + 
DUF 53761 C! 53765 C! 3 


DON OU BON H SO 
o~ 


vol -- “init. effect & > 
 SFXE2 53760 C! 53764 C! 3} 
( frq fra -- ) 3S 
10 
1i 
12 
13 
14 
15 


Screen #24 contains the two SFXB words (sound effect B). These produce simpler (as 
compared to SFXA), yet quite unique, sounds. 
SFXB1 vol -- 

Example! 10 SFXB1 


Initializes for sound effect B using the specified volume. 


SFXB2 ~~ frq frq -- 
Example? 255 254 SFXB2 
Produces unusual sound effects based on the two frequencies provided. 


Warning. SFXB1 must be executed at least once before using SFXB2, Also, use of 
these words interrupts normal sound. 


Comment, You can easily shut off any SFX with an ASOFF or SINIT followed by new 
sounds, 


Additional examples, The following examples are a few of the more interesting 
SFXB2 combinations. 


SINIT 12 SFXB1 (execute these first) 
254 255 SFXB2 

150 151 SFXB2 

74 101 SFXB2 

100 200 SFXB2 

31 101 SFXB2 


. 82 98 SFXBZ 
ASOFF (shuts it off) 
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SCREEN #25 


SCR # 25 
0 ¢ Sound VI$ Warp fum-FORTH ) 
1 ¢ *xkx NEEDS SCREENS! 1,20 ) 
2 
3 ? WARF SWAF 16 x + 53761 C! SWAF 
4 ZDUF - O« IF ~-1 ELSE 1 ENDIF 
ba] ROT ROT DO O IT FREQ SWAF DUF 
& DELAY SWAF DUP +LOOF 2DROF }: 
7 € dur frail fraZz tim vol -- ) 
8 
9 3S 
10 
ii 
12 
13 
14 
15 


Screen #25 contains the word WARP, WARP is neither very fast nor very useful, but it does 
show a simple, general purpose example of sound use, 
WARP dur frail frq2 tim vol -- 

Example? 50 255 10 15 WARP 

Produces a sound using the specified timbre and volume, which loops from frqi to 

frq2 at arate inversely proportional to dur (that is, 0 is fastest for dur). The 

last frequency remains on after execution and may be shut off with a0 SOFF. 


Warning. WARP interrupts use of voice zero. Also, see the warning under SINIT, 


Comments, The operand frqi may be higher or lower than frq2, which gives the word 
greater versatility. 


The last sound remains on to allow continuity with another WARP or other sounds. 


A faster version of WARP dedicated to producing one warp-like sound can easily be 
written. 


Additional example. The following word repeats a certain WARP the specified number 
of times, 


‘ RED-ALERT 0 DO 10 130 100 10 15 WARP LOOP 0 SOFF } RTN 
SINIT 10 RED-ALERT 
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SCREEN #30 


SCR # 30 
0 ¢ Grfx T3 Basics fum-FORTH ) 
1 ¢ &xxK NEEDS? graphics screens 
2 ¢ from fig-FORTH!50-S5Sisee doc.) 
3 
4 $ FGR &GR 12 MASK ! GR. ¢ 
3 € mode -- “full-screen GR. ) 
6 $} SGR &GR 28 MASK ' GR. } 
7 ( mode ~- <use instead of GR. ) 
8 HEX CODE CGET XSAVE STX, # 30 
9 LDX, # 7 LDA, IOCX 2 + ,X STA, 


10 TYA, IOCX 8 + ,X STA, IOCX 9 + 
li *X STA, CIO JSR, XSAVE LDX, 


12 FUSHOA JMF, DECIMAL ¢ -- ) 

i3 : SCR? FOS CGET 3 

14 €( «x yg -~ color#/ascii# ) 

15 ¢ called LOCATE im «BASIC ) 75 


Screen #30 contains some of the basic graphics words. These words let you get a full 

screen of graphics in FORTH (using FGR). Also, you no longer have to exit a graphics mode 
(using EXTENDED fig-FORTH’s XGR word) before going into a different mode} FGR and SGR 
take care of the details for you. In addition, with SCR? you can do the equivalent of an 


ATARI BASIC LOCATE command, which "looks" at the screen and returns color numbers or 
ASCII numbers. 


FGR mode -- 
Example! 5 FGR 


Similar to the GR. command in ATARI BASIC and EXTENDED fig-FORTH, this word sets up 
the full-screen version of the desired mode, 


Warning. Don’t add 16 to the mode number as you gould in ATARI BASIC for a full 
screen. 


Comment, A 0 FGR lets you plot and draw on the mode 0 screen. An XGR does not. 


SGR mode -- 
Example} 2 SGR 


Similar to FGR, this word sets up the split-screen version of the desired made, with 
four lines of graphics mode zero on the bottom. 


Comment. This word is preferred to GR. because it can always get you out of the 
current mode and into a new one, 
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SCR? - xy -- color#/ascii# 
Example? 22 15SCR?. 2 ok 
Similar to the LOCATE command in ATARI BASIC, this word returns the color# (in modes 


3 and up) or the ascii# (in modes 0, 1, & 2) of the specified coordinates on the 
screen. 


Warning. Using this word in mode zero may affect the display and move the cursor. 
Comment. Here’s an analogy for those who don’t know what LOCATE does! 


SCR? is to PLOT as @ is to! 


SCREEN #31 
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DON GOUSDONH OD 


%# 3i 
( Grfx II% Color fun-FORTH ) 
( **XK NEEDS SCREEN! 30 

1 VARIABLE COL 
¢ TCOL COL !' 3 ¢ color —=- >) 
(called COLOR in xBASICx ) 
+ TCOL? COL @ 3 (¢ -- color ) 
$ CFLOT TCOL? ROT ROT PLOT 3 
(x yor ) 
( called FLOT in xBASICx ) 

+ CDRAW TCOL? ROT ROT DRAW } 
13 ¢ «xy -- 3 

(called DRAWTO im *BASTICK ) 3S 


Screen #31 contains the basis for the color words! the variable COL (plus TCOL and TCOL? ; 
_ which access it), Using COL , words have been written that use the stored color. Among 
these are CPLOT and CDRAW (on this screen), CBOX and CHBOX (on screen #35), and all of 
the turtle words that do any drawing (see screens #32~-#34), 


TCOL = color# -~ 
Example! 2 TCOL 
Store the specified color for later use. Similar to COLOR in ATARI BASIC, 


Comment. If you’re in a text mode, you should specify an ascii# instead of a 
color#, 


TCOL? -- color# 
Example?! TCOL?. 2 ok 


Returns the current color being stored for use with the turtle and color words 
(CPLOT, etc.), See TCOL. 


CPLOT xy-- 
Example! 22 15 CPLOT 


Similar to PLOT in ATARI BASIC, this word plots a point at the specified coordinates 
using the stored color (see TCOL), 


Comment. In most cases, this word, in combination with TCOL, is more convenient 
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than PLOT (which requires the color parameter each time). 


CDRAW xy-- 
Example! 327 25 CDRAW 


Draws a line from the last two coordinates to the specified coordinates using the 
stored color, 


Comment, See the comment under CPLOT, 
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SCREEN #32 


SCR # 32 
0 ¢ Grfx IIT? Turtlet fum-FORTH ) 
1 ¢ *xKx NEEDS SCREEN? 31 ) 
2 10 VARIABLE TX 10 VARIABLE TY 
3 0 VARIABLE XD -1 VARIABLE YD 
4 1 VARTABLE DIR 
a] 0 VARIABLE TURTD -2 ALLOT 
6 0, -1 5» 1, -1,1,0,1 =, 
7 21, 0,2 ,-1 5,1, -1,90~,z 
8 -1l , -1 ; 
9 3 TXY? TX @ TY @ 3 ( -— te ty ) 
10 3: TFLOT TXY? CPLOT 3 ¢€ -- ) 
1i ¢: TF TPLOT YD @ TY +! XD @ 
12 TA +) 3 0 ==) 
13 $ TFWD 0 DO TF LOOF 3} ( nm -- ) 
14 3 TMOVE TY ! TX ! 3 € w& y -- ) 
15 +S 


Screen #32 is the first "turtle graphics" screen. The simplified turtle presented on this 
and the following two screens is reminiscent of the turtle in WSFN (APX-20026), It, too, 
can’t handle any angles, but instead only 45-degree increments (vertical, horizontal, and 
the four diagonals), The fun-FORTH turtle is even more simple in that it never appears on 
the screen; you have to keep track of its direction and coordinates. 


The turtle has a direction (1-8, see TDIR on the next screen), x and y coordinates, and a 
color to draw with (stored by TCOL). Using the commands on these three screens, you can 


make the turtle do whatever your heart desires! draw lines, turn around, draw simple 


shapes, jump around the screen, or even play "Breakout" (although that one takes a little 
work), 


TXY? --txty 
Example! TXY?., 20 40 ok 


Returns the current coordinates of the turtle, 


TPLOT -—- 
no parameters 
Plots a point directly underneath the turtle using the stored color. 


Comment. TPLOT is a quick way to determine where the turtle is during 
experimentation. 


no parameters 


Moves the turtle one pixel in the stored direction (see TDIR) and plots a point 
where it used to be using the stored color. 


Comment. No point is plotted at the turtle’s new position. 


TFWD n-- 
Example? 5 TFWD 


Moves the turtle n pixels in the stored direction, each time plotting a point where 
it has been, using the stored color. 


Comment. No point is plotted at the turtle’s final position. 


TMOVE xy-- 
Example: 45 25 TMOVE 
Jumps the turtle to the specified coordinates. 


Comment. This word doesn’t plot any points or change the display in any way, 
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SCREEN #33 


SCR # 33 
0 ¢ Grfsx IVio Turtle2 fun-FORTH) 
1 (¢ *xXx NEEDS SCREEN! 32 ) 
2 
3 3 TOIRK DUF DIR ' DUF DUF + 2 
4 - DUF + TURTD + @ XD ' DUF 
5 + 1 ~ DUF + TURTD + @ YD ! 3 
6 ( direction -- ) 
7 { TDOIR? DIR @ } 
8 ( -- direction ) 
9 $ TIN TDIR? 1+ DUF TDIR 9 = 


10 IF 1 TOIR ENDIF 3 


1i ¢ “one turn clockwise ) 
12 % TURN 0 DO TTN LOOP 3 

i3 ¢(m-- an turms clockwise ) 
14 $ TGO DUF YD @ «x TY +! xp @ 

15 x TX +! 3 Cm m-- >) 3S 


Screen #33 is the second screen of turtle graphics words, 


TDIR direction# -- 
Example} 5 TDIR 


Stores the specified direction (from 1 to 8) for use in turtle movement (TF, TFWD, 
and TGO). Directions go clockwise from 1 (north) to 8 (northwest). 


Comment. Here’s a diagram of turtle directions! 
UF 
N | 7 
7--X--3 
fin 
TDIR? -- tdirection# 
Example! TDIR? . 4 ok 


Returns the current turtle direction number. 


TIN -- 
no parameters 


Rotates the turtle one direction# clockwise (for example, from 4 to 5), 


TURN n-- 
Example! 3 TURN 
Rotates the turtle n direction numbers clockwise. 


Comment. A 2 TURN is a 90-degree (clockwise) turn. 


TGO n-- 
Example: 5 TGO 


Moves the turtle n pixels in the stored direction but doesn’t plot any points. 
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SCR # 34 

0 ¢€ Grfx V Turtle3 fum-FORTH > 

1 ( *K*X NEEDS SCREEN! 33 ) 

2 3 TSCR? TX @ TY @ SCR? 3 

3 ¢€ -~ color ) 

4 ? TAHD? TX @ XD @ + TY @ YD @ 

be + SCR? }$ € -- color ) 

6 $ TDRAW TFLOT 2DUF CDRAW 

7 TMOVE 3} (€ =x y -=- 9) 

8 }: GR? 87 C@ +; ¢( —=— mode ) 

9 $ HOME 1 TCOL 1 TDIR GR? =r 
10 R 3 = IF 20 10 TMOVE ENDIF 
11 Ro 3 > IF 40 20 TMOVE ENDIF 
12 KS > IF 80 40 TMOVE ENDIF 
13 KR 7 » IF 160 80 TMOVE ENDIF 
14 Ro DROF } 

13 ( -- “homes turtle ) {S$ 


Screen #34 is the last of the three turtle screens. Unlike the other two screens, the 
words on this screen are turtle conveniences, not turtle essentials. 


TSCR? -- color# 
Example: TSCR?.1 ok 


Returns the color# of the point directly beneath the turtle, 


TAHD? -- color# 
Example! TAHD?. 3 ok 


Returns the color# of the pixel directly ahead of the turtle, that is, one pixel 
forward in the stored direction. 


TDRAW xy -- 
Example? 10 15 TORAW 


Draws a line using the stored color from the turtle’s position to the specified 
coordinates, and moves the turtle to those coordinates, 


GR? -- mode 
Example! GR? .7 ok 


Return the current mode number, 
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Warning, This word may have no practical use at all, except that (1) it’s great 
for amnesiac programmers and (2) it was used in defining the word HOME, 


HOME -- 
no parameters 


Moves the turtle to the appropriate center of the screen, sets its direction to 1 
(up) and its color to 1, 


Warning. This word isn’t for modes 0, 1, 2, or greater than 8 (available with the 
GTIA chip), 


Comment. It’s convenient to execute HOME upon entering a mode before playing with 
the turtle. 


USING THE TURTLE WORDS 


One nice way to play with the turtle words is to go into mode 5 or 7 with SGR, doa 
HOME, and do a few direct turtle commands to get the hang of it. Then, start to 
define simple words (while you’re still in the text window) that make the turtle 
draw simple shapes and patterns. Finally, you'll find that you're defining larger 
words that draw beautiful multicolored pictures or patterns on the screen. Not only 
is this approach fun, but it’s a great way to introduce children to FORTH, 
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SCREEN #35 


SCR # 35 

0 ¢€ Grfx VII Boxes fum-FORTH ) 
1 ( xXx NEEDS SCREEN! 31 ) 

2 

3 3 CEOX i+ SWAF DO ZDUF I CFLOT 
4 I CORAW LOOP 2DROF 3 

2 € xlow «hi ylow yhi -- ) 

6 

7 $ CHEOX >R &R DUF CRPLOT SWAF 

8 DUF R CORAW RR» ROT ROT R 

9 CDRAW DUF R= CDRAW SWAF 
10 CDRAW 
11 ¢ xlow shi ylow yhi -- ) 

12 ¢ CHEOX is @ hollow box ) $S 
13 , 

14 

1S 


Screen #35 contains two very useful words! one draws a filled box, and the other draws a 
hollow box. These words can be as much fun to play with as the turtle words. (Note. 


When you experiment with these words, use graphics mode 3 or greater by executing, for 
example, 3SGR .) 


CBOX xlow xhi ylow yhi -—- 
Example! 12 265 10 CBOX 


Draws a solid box using the stored color (see TCOL) whase corners have the following 
coordinates: (xlow;ylow) (xhi,ylow)(xhi,yhi) and (xlow,yhi). 


Warning, xhi must be greater than xlow and yhi must be greater than ylow,. 


CHROX xlow xhi ylow yhi -- 
Example! 12 26 5 10 CHBOX 


Draws a hollow box using the stored color whose corners have the specified 
coordinates (as with CBOX). 
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0 ¢€ Grfx VIT? Gr.1&2 furn-FORTH ) 
1 ¢ KK NEEDS SCREEN! 30 ) 

2 $: GSFACE BL CFUT 3 

3 3 GSFACES 0 MAX -DUF IF 0 DO 

4 GSPACE LOGF ENDIF 3; ¢( n -- ) 

3 ? GD.R =R SWAP OVER DABS <# 

& #S SIGN #> Re OVER - 

7 GSPACES GTYFE 3} ¢€ 4d fldwth - >) 
8 $3 G.R =R S->D Ro GDL.R } 

9 € n fieldwidth -- ) 
10 ¢ GD. 0 GD.R 3} ¢ Gd -- 3 
11% G. S-"D GD. $} ( nm -- ) 
12 ¢ « for modes 1 & 2. Notet G. 
13 ¢ doesn’t follow #s with blanks) 
14 : GCR 155 CPUT 3 ¢ -- ) 
15 ¢ CR for modes 1&2) $S 


Screen #36 conains words that aid in printing on the graphics mode 1 and 2 screens. The 
most needed of the words are G. (which prints the top of the stack onto the screen) and 
GCR (which does a carriage return to the next line). 


GSPACE -- 
no parameters 


Outputs a space to the mode 1 or 2 screen. 


GSPACES n-- 
Example! 4 GSPACES 


Outputs n spaces to the mode 1 or 2 screen. 


GD.R d fieldwidth -- 
Example! 294,863 7 GD.R 


Outputs the double-precision number, right-justified in the specified field width, 
to the mode 1 or 2 screen, 


G.R on fieldwidth -- 
Example? 12155G.R 


Outputs the number, right-justified in the specified field width, to the mode 1 or 2 
screen, 
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Comment, G.R is a useful word for printing scores or times on the screen. 


GD. d-- 
Example} 294,863 GD. 


Outputs the double-precision number to the mode 1 or 2 screen. 


G, a i 
Example? 1215 G, 
Outputs the number to the mode 1 or 2 screen. 


Comment. This is essentially a period (. ) for the large text modes, the major 
difference being that it doesn’t follow the number with a space, 


GCR -- 
no parameters 
Outputs a carriage return to the mode 1 or 2 screen, 


Comment. GCR is a carriage return (CR) for the large text modes, 
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SCREEN #40 
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++ ~~ +e ~~ 


40 

Special Words I funm-FORTH ) 
MYSELF LATEST FFA CFA 

+ + IMMEDIATE 

== “recursive word ) 

FICK 1+ DUF + SF@ + @ 3 


stackdepth -- contents ) 
CVARIABLE <EUILDS i ALLOT 
DOES 3} 


to create! CVARIABLE Xxx ) 
note mo initial value mec. ) 
use C! C@ and C? with XXX ) 
CARRAY <EUILDS i+ ALLOT 

DOES> + 3$ ¢€ size CARRAY XXX ) 
to store? val index XXX C! 3} 

to retrieve! index XXX C@ ) 
range $ 0 <= index <= size ) {$$ 


Screen #40 is the first of two special words screens, containing miscellaneous useful 
words. The words on Screen #40 screen have appeared in various FORTH sources (such as 
FORTH Dimensions, the FORTH Interest Group publication. See the EXTENDED fig FORTH 


bibliography). 


MYSELF -- 


no parameters 


Permits recursion in FORTH. Use MYSELF in a definition when you want to call the 
word you’re defining, 


Warning, If you’re not familiar with recursion, don’t use MYSELF} it easily bombs 


the system, 


e 
Additional example. The following word prints items from the stack until it 
encounters a zero} 


: MYTEST DUP 0= IF ." done!" ELSE CR . MYSELF ENDIF ; 
(Onnrannna--O) 
0 233 -5 1290 771 MYTEST 


PICK = stackdepth —- contents 


Example? 431929 2 PICK. 430k 


Returns the number from the desired depth of the stack, 


Warning. Stack depth should not exceed the actual depth of the stack} if it does, 
the result is garbage, 
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Comment. A 0 PICK is the same thing as a DUP, A 1 PICK is the same thing as an 
OVER. 


CVARIABLE -- XXX 
Example: CVARIABLE MYVAR 


Defines a one-byte variable with the specified name, and no initial value. Use C', 
C@,andC with the created variable, 


CARRAY 
Example! 5 CARRAY MYBYTES 


Creates a one-byte-per-element array named MYBYTES capable of storing six values 
(0-5), Use C!,C@, and C? with the created array. See ARRAY (screen #1) for more 
information. 
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SCREEN #41 


SCR # 41 
0 (¢€ Special Words II fun-FORTH 3} 
1 
2 $ ATTRON 128 77 C! 3 ¢€ == ) 
3? ATTROFF 0 77 C! $ ¢ =-- ) 
4 ¢ turn attract mode on & off ) 
te) 
6 3? CURSON 0 752 C! 3 ¢ -- ) 
7 ? CURSOFF 1 752 C! 3 ¢( -- ) 
8 ¢ turn cursor om & off ) 
9 
10 $ ANTON 34 S59 C! 3 ¢ -- 3) 
11 $ ANTOFF 0 S59 C! $ ¢€ -- ) 
12 ¢ turn antic om & off ) 3S 
13 
14 
is 


Screen #41 contains six words that turn things on and off with a single poke. These are 
nice for programmers who can never seem to remember the right addresses or values. 


ATTRON -- 
ho parameters 


Turns the “attract mode" on. 


ATTROFF -- 
no parameters 


Turns the "attract mode" off and ensures that it will stay off for about nine 
minutes. 


Comment. ATTROFF is useful for applications in which the keyboard is not in use. 


CURSON -- 
no parameters 


Turns the mode 0 cursor (white box) on, 


CURSOFF -- 


no parameters 


Turns the mode 0 cursor (white box) of f, 


Comment. CURSOFF makes output in mode 0 look more graceful (no racing cursor), 


ANTON -- 
no parameters 


Turns the ANTIC chip (the display chip) "on". 


ANTOFF -- 
ho parameters 
Turns the ANTIC chip "off". The screen goes black, but all else is normal. 


Comment, Turning ANTIC off can increase operational speed approximately 30 percent 
over the operational speed while ANTIC is on and you’re in mode 0, because ANTIC 
isn’t stealing cycles from the 6502 microprocessor, 
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TROVELESHOOTING 


DRIFTING OF TIME VALUE 


When using SECONDS (which has a ceiling of about 18 minutes), after about the 550th 
second the value will be off by four seconds. If you find a fix to this, please send it 
along. 


READJUSTING SOUND PROBLEMS 


When using sound words, if anything doesn’t sound quite right (including the SFX’s), try 
executing SINIT again (or SINIT14, for 14-bit sound), and re-execute your sound code, 
This usually works, 


MOVING THE TURTLE OFF THE SCREEN 


When using turtle graphics, moving offscreen doesn’t cause errors. However, if you go far 
enough off the screen, the turtle wraps around back onto the screen again. 


COMPUTER LOCKUP 


If the computer locks up while you’re testing a new word, the chances are good the word 
was overflowing the stack. Try pushing the SYSTEM RESET button. If this doesn’t work, 
shut off the system and reload the FORTH diskette, 
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ADVANCED TECHNICAL INFORMATION 


MASKING OUT WORDS 


Sometimes you'll want to use only some of the words from a particular fun-FORTH screen. 
In these instances, you can mask out all the unwanted words on a screen. However, before 
doing so, make sure any other words you plan to load don’t depend on any words you intend 
to mask out. For example, suppose you don’t want the SND command on Screen #20 but you 
do want BUZZ and BELL on Screen #21, Checking the definitions of BUZZ and BELL, you'll 


see they both need the SND command. Therefore, you must load SND if you want BUZZ and 
BELL. 


Some words are even trickier in that they don’t contain the words they depend on. An 
example of this is the SINIT word} almost all sound words need SINIT before they can be 
used, but these words do not necessarily contain SINIT in their definitions. 


To mask out unwanted words, go into the EDITOR and enclose in parentheses the lines in 
which the words are contained. Every line containing the definition of an unwanted word 
should be enclosed, (If you don’t know how to use the EDITOR, see the EXTENDED fig-FORTH 
manual.) Then FLUSH the modified screens. Now load the screen in the usual way. A word 
followed by a "?" will appear if you edited the screen(s) incorrectly. 


To reverse the process, and reinstate these words, just remove the parentheses and FLUSH 
the screens again. 


CREATING AN AUTOMATICALLY LOADED PROGRAM 


Once you’ve written a FORTH program, you may wish to set it up so that it can be loaded 
and run easily, even by someone who doesn’t know FORTH. One nice way is to make your 
program autoloading using the following method? 


1, Load your entire program (all of the words and variables) into computer memory, 
Now, suppose MYGAME is the word you execute to run the program. You would then type 
in the following (and press RETURN): 


’ MYGAME CFA “ ABORT 6 + ! 


(Make sure you type in the two apostrophes around MYGAME CFA. This line replaces a 
CR word in the ABORT code so that execution transfers to MYGAME upon use of the word 
COLD, which includes initially loading the program into memory or pressing the 

SYSTEM RESET button.) 


2. Now insert a formatted diskette, type SAVE , and press the RETURN key, Note that 
once you do this, you can’t use the diskette for anything else. 
3. Now you have a diskette that will automatically load into memory and start when 


you turn on your computer. Also, pressing SYSTEM RESET will cause your program to 
restart automatically. 


AUTHOR’S COMMENTS 


I would like to extend my most sincere thanks to Pat Mullarky for helping me with this 
package (especially with methods used in the words FGR,SGR, SCR? , and also the 
autoload method described in the Advanced Technical Information section) and for writing 
his excellent version of fig-FORTH. Fun-FORTH may smooth out some of the rough spots in © 
EXTENDED fig~FORTH, but there weren't many to begin with, thanks to Pat, 


T would also like to thank my father, David Gluck, M.D., for his help and endless 
encouragement throughout the whole process. 


I encourage you to send me news of any bugs you find in fun-FORTH (along with some 
solutions, if possible), And, in the hope that I get around to writing fun-FORTH II, I 
would appreciate any suggestions you have for words to include in the package along the 
lines of player/ missile graphics, character set redefinition, and other techniques, plus 
non-graphics vocabulary, such as string-handling words. 


Good luck, be FORTH-ful, amd program! 
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APPENDIX: QUADRASKETCH 


OVERVIEW 
QuadraSketch is a small drawing program that demonstrates the use of various words in 
fun-FORTH. The program lets you paint colorful, symmetrical patterns in graphics modes 3, 
S, and 7, and you can change any of the colors at any time. 


You need a Joystick Controller to use QuadraSketch. 
GETTING STARTED 


Loading QuadraSketch 
To load QuadraSketch, first load the following screens from EXTENDED fig-FORTH and 
fun-FORTH, using the method described under "Getting Started" at the start of the manual. 
(Note. You must load EXTENDED fig-FORTH to perform the following steps.) 
1. From the fig-FORTH diskette} 
39 LOAD Sd LOAD 
2, From the fun-FORTH diskette! 
1 LOAD 2 LOAD 4 LOAD 
20 21 LOADS 24 LOAD 
30 31 LOADS 
3. Then load all the screens necessary for QuadraSketch by typing 
64 LOAD 
with the fun-FORTH disk inserted in the disk drive. 
4, To run QuadraSketch, type 
QSK 
and press RETURN. 


“ Plug a Joystick Controller into the leftmost controller jack at the front of the 
computer. 
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THE FIRST DISPLAY SCREEN 
After is screen clears, this prompt displays: 
Welcome to QuadraSketch. 
Mode? 
Choice of mode 


Type the number of the graphics mode you want to draw in--3, 5, or 7 (pressing the RETURN 
key isn’t necessary), If you type any other character, the program chooses a mode for you. 


The screen then clears and a blinking gold dot displays in the center. 


USING QUADRASKETCH 
“Painting” 


Pushing on the joystick, move the blinking dot diagonally upward and to the right. Notice 
that 3 other dots appear and move in opposite directions. One goes up and left, another 
down and left, and the third moves down and to the right. 


As the "brushes" move, each leaves a trail behind it. This is how you paint with 
QuadraSketch. Also, notice that the brushes start out moving slowly and gradually speed 
up. This feature gives you more control to do "touch-ups" but also lets you paint large 
patterns quickly, 


Lacating your position 


When you stop painting, the brush you were controlling begins to blink, letting you know 
where you are. When you stand still, you hear no sounds. But when you move, you hear a 
clicking noise that speeds up into a low buzz. If you try to go off the screen, a BOOM! 
alerts you as you hit the edge. (If you don’t hear these sounds, turn up the volume on 
your television set.) 


Erasing or moving without painting 
To erase what you’ve drawn, or to move the brushes without leaving a trail of paint, hold 
down the red button on the joystick as you move. The sound changes to something like the 
"hyperwarp" noise from Star Raiders (tm). 

‘Using more than one color 
Up until now, you’ve been drawing with color 1 and erasing by using the background color, 
However, you have two more colors to draw with! colors 2 and 3. To use these, type the 
number of the color you wish to draw with (for example, 3), You’ll hear a weird, cyclic 
noise. Now push the red button. The noise stops and you re-enter normal drawing mode. You 


may now draw with color 3. 


The preset colors are as follows! 
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gold Cinitial brush) 
bright green 
blue 


black (background; mot a selectable paint color) 


tone, 


To change any of these colors (for example, to change color 1 from gold to purple), type 
the number of the color you want to change. Next, move the joystick left or right. The 
color you have selected will cycle up or down the 128-color scale (starting with the 
original color). If it reaches either end of the scale (black or bright yellow) it 
automatically wraps around. When you reach the color you want, stop moving the joystick 
and push the red button. You then return to normal drawing mode, with your brush color 
set to the color you changed (unless you changed color 4, the background, in which case 
your brush color stays what it was before your change), 


Avoid changing a color before drawing with it on the screen. Unless you have a color 


sample on the screen, when you change the color, you‘ll think nothing is happening 
because you’ll see no visible change. 


RESTARTING QUADRASKETCH 


To leave QuadraSketch, press the ESC key while in normal drawing mode. You can’t leave 
the program while in the color-changing mode, After the screen clears, the prompt; 


Finished? (Y/N) 


displays. Type "N" to remain in QuadraSketch (the "Mode?" prompt then redisplays). Type 
"Y" to return to the standard FORTH prompt "ok", 


ADVANCED TECHNICAL INFORMATION 


The following is a screen-by-screen description of the words making up QuadraSketch. 


SCREEN #464 


SCR # 64 

0 ( QuadraSketch QSK JQJUNBZ ) 
1 

2 € if mot already LOADed: ») 

3 ¢ 1 LOAD 2 LOAD 4 LOAD ) 

4 ¢ 20 21 LOADS 24 LOAD ) 

3s ¢ 30 31 LOADS > 

& 

7 9 VARIABLE XX 9 VARIABLE YY 

8 38 VARIABLE XL 22 VARIABLE YL- 
9 3 VARIABLE GMD 1 VARIABLE FCOL 
10 0 VARTABLE DELC 
11 os 

12 

13 

14 

is 


Screen #64 contains the "variables" used in QuadraSketch. XX and YY contain the x and y 
coordinates of the blinking brush. XL and YL contain the x and y limits, which depend on 
the selected mode. GMD contains the selected graphics mode number. PCOL contains the 
current color number. DELC stores the current delay used when moving the brushes. 


iss} 
Oo 
mn 
whe 


COON OAC SON Oo 
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( QSK page 2 JQaJUNGZ ) 


Sd 


DONE? 0 FGR CR CR 
«" Finished? (Y/N) " Y/N 3 
C m= 1/0 > 


oe 


COLSWITCH 200 BELL 4 SFXEi 
171 172 SFXE2 48 - DUF 

708 + DUF 712 < IF 1 -— ENDIF 
BEGIN O XSTK -BUF IF ASOFF 
10 SWAF DUF C@ ROT + SWAF DUF 
11 ROT SWAF C! SO DELAY 4 SFXE1 
12 ENDIF 0 STRIG O= UNTIL ASOFF 
13 DROP DUF 4 «| IF FCOL !' ELSE 
14 DROF ENDIF SINIT 100 BELL } 
15 ¢ escol -- >) --> 


DONE? -- 1/0 


This word, which is essentially the last word to be executed, asks if you’re 
finished, and returns the appropriate flag. 


Comment. DONE? uses the word Y/N; on screen #4, 


COLSWITCH  ascol -- 


This word receives the ASCII code of the color number (for example, 49 instead of 1) 


from KINTERP (see below), It then lets you change the desired color as described 
earlier. 


Comment. COLSWITCH uses many fun-FORTH words, including SFXB1 and SFXBZ , which 
produce the "weird noise" described earlier in this section} BELL , which sounds 

upon entering and exiting this word} XSTK , which returns values for the right or 

left movements of the joystick} and ASOFF , which shuts off all the sound, 


SCREEN #64 


SCR # 66 
( QSK page 3 JQJUN82 ) 


oo 


KINTERF KEY DUF DUF 48 > 
SWAF S3 < AND IF COLSWITCH 0 
ELSE 27 = ENDIF } 

~- 1/0 ) 


: BLINK 0 SOFF 0 XX @ YY @ PLOT 
10 DELAY FCOL @ Xx @ 

YY @ PLOT 100 DELC ! ; 

-- ) 


SON OC SWUNH © 


12 $ DSND O STRIG IF SFOF ELSE 
13 0 DELC @ 2 / 8 4 SND ENDIF 
14 DELC @ DUP DELAY S&S - DELC ! } 
== J} =e 

KINTERP -- 1/0 


Executed upon the press of a key, this word either enters the color-changing mode 
(COLSWITCH) or sets the flag for exit from QuadraSketch, 


BLINK no parameters 


Executed if the brushes are not moving, this word blinks the direct-control brush, 
and sets the movement delay to its slowest. 


DSND ino parameters 


This word creates the noises heard during movement and decrements and executes the 
delay (which controls the speed of the brush), 


SCREEN #67 


SCR # 67 
0 ( QSK page 4 JQJUNBZ ) 
1 
2 $ DIR+ 6 XSTK DUP XX @ + 0 
3 YSTK BUF YY @ + DUF 0 < 
4 SWAF YL @ > OR ROT DUP O < 
5 SWAF XL @ > OR GR IF 2ZDROF 
6 30 20 EXFLODE ELSE YY +! 
7 XX +! ENDIF 3 
8 ¢€ -— ) 
9 
10 ¢ FLOT4 XX @ YY @ CFLOT 


11 XL @ XX @ - YY @ CFLOT 
LZ XX @ YL @ YY @ - CFLOT 
13 XL @ XX @ - YL @ YY @ - 
14 CFLOT 3; 


15 ( -- ) ==> 


DIR+ no parameters 


This word changes the x and y coordinates of the brush based on the direction of the 
joystick. If the resulting coordinates are off-screen, it causes an audible 
explosion and does not change the coordinates. 
Comment. DIR+ makes use of XSTK , YSTK , and EXPLODE from fun-FORTH. 
PLOT4 no parameters 


This word plots all four points using the color stored in COL. 


Comment. CPLOT, from fun-FORTH, is used to perform each plot. COL is a variable 
from fun-FORTH screen #31, 


SCREEN #69 


SCR # 68 
0 ¢€ QSK page 5 JQUUNBZ ) 
1 
2 3; COLT FCOL @ 0 STRIG x TCOL 3 
3 C == ) 
4 
% $ COLH FCOL @ TCOL : 
6 € = ) 
7 
8 } QDRAW 0 STICK 15 - IF COLT 
9 FPLOT4 DIR+ COLH FLOT4 DSND 
19 ELSE BLINK ENDIF } 
11 € =— ) => 
12 
13 
14 
15 


COLT no parameters 


Sets the color for the next PLOT4 to either the current PCOL (for painting) or the 
background (for erasing), based on the joystick trigger. 


Comment. Uses STRIG and TCOL from fun-FORTH. 
COLH no parameters 

Sets the color for the next PLOT4 to the current PCOL. 
QDRAW no parameters 


If the joystick is being moved, this word performs a single paint-and-move or a 
blink using previously defined words. 
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SCREEN #49 


SCR # 4&9 

0 ¢ QSK page 6 JQJUNBZ ) 
1 

2 ’ QSETUF GMD @ FGR 1 TCOL XL e@ 
3 2 / DUF XX !' YL @ 2 / DUF 

4 YY ! CFLOT 1 FPCOL ! } 

oC = ) 

& 

7 : MODE? 0 FGR CR CR 

8 +" Welcome to QuadraSketch." 
9 CR CR ." Mode? " KEY 48 - 3 
16 MAX 7 MIN DUF DUP 4 = SWAF 6 
11 = OR IF DROF 5S ENDIF DUF GMD 
12 ' DUF 3 = IF 38 XL ! 22? YL 
13 ! ENDIF DUF 5S = IF 78 xL ! 
14 46 YL ! ENDIF 7 = IF 158 XL 
15 ' 94 YL ! ENDIF } -——* 


QSETUP no parameters 


Sets up the screen for drawing by going into the selected mode, plotting the brush, 
and setting the default color to 1, 


MODE? no parameters 


Prints the initial welcome and prompt and inputs the desired mode. It then finds the 
correct screen limits for that mode, 


SCREEN #70 


33 
O 
= 
+ 


. 70 

0 ¢ QSK page 7 JQUUNBZ ) 
1 

2 $ QSK BEGIN SINIT MODE? 

3 EEGIN QSETUF 

4 BEGIN KEYINIT 

va] BEGIN QDRAW KEYED? 
é UNTIL KINTERF 

7 UNTIL i 

8 UNTIL DONE? 

9 UNTIL $ 
10 
11 7S 
12 
13 
14 
15 


QSK no parameters 
This is the word that puts it all together. When executed, it runs QuadraSketch. 
Comment. The outer BEGIN UNTIL loop lets you restart based on your response to 
DONE?, The next loop sets QSETUP apart for execution. The next loop surrounds the 


drawing loop so that KINTERP can re-enter normal drawing or exit. The innermost loop 
performs the actual drawing until a key is pressed. 
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INDEX TO WORDS 


The following index contains each fun-FORTH word followed by it 
stack diagram ¢ "--" by itself mears "no parameters") and the 
screen where it is located. 


KK A KX 
ANTOFF (--) 41 
ANTON (--—) 41 
ARRAY (size -- XXX) 1 
ASOFF (--) 20 
ATTROFF (-~) 41 
ATTRON (-=—) 41 
Kx EO xX 
BELL (frq --) 21 
BOOP (frq --) 21 
BUZZ (-—) zl 
Kx C xX 
CARRAY (size -- XXX) 40 
CEOX  (xlow xhi ylow yhi --) 35 
CDRAW (x y -=-) 31 
CHEOX (xlow «hi ylow yhi --) 3u 
CLICK (--) 21 
CONSOLE? (-- value) val 
CFLOT (x y --) 31 
CURSOFF (-—} 41 
CURSON (--} 41 
CVARTABLE (--— XXX) 40 
xx D xx 
DELAY Clength --) 1 
xx E xx 
EXPLODE (fra dur ~—-) Zi 
KK F xx 
FGR (mode --) 30 
FILTER! (rm --) 20 
FREQ (voce fra --) 20 
FREQI6 (vocOoril fralé --) Ze 
xx G *X 
G. (nm --) 36 
GR (nm fldwth --) 36 
GCR (==) | 36 
GD. (gq --) 34 
GD.R (dd fldwth --) 34 
GRP (-— mode) 34 


XX 


KX 


KX 


xX 


KX 


KX 


XxX 


xX 


xX 


GSFACES (nm --) 


*X 
HOME (-—) 


xx 
KEYED? (-- 0/1) 
KEYINIT (--) 


KK 
LOADS Cistserm lastsernm --) 


xX 
MYSELF (¢--) 


KX 
OPTION? (-— O/71> 


" KX 


FADDLE (paddlet -- value) 
FAKTC (--) 

FICK (stackdepth -- contents) 
FTRIG (pacidle# -- O/1) 

xx 

RND (range ~-- random) 

«xX 

SCR? (sx y -- color#) 


SECONDS (-- secs) 
SELECT? (-=— 0/1) 

SETIME (#secs -~) 

SFXAL (vol --) 

SFXAZ (frq fra fra frq --) 
SFXB1 (vol --) 

SFXE2 (frq frq -—-) 

SGR (mode --) 

SINIT (--) 

SINIT16 (--) 

SND (voc fra tim vol -~-) 


SNDI6 (voc0/1 fralé tim vol--) 


SOFF (voc --) 


SFOF (=) 

START? (-- O/1) 

STICK (joystickh# -- value) 
STRIG ¢ joystick# -- 0/1) 
xx 


TAHD? (-— color#) 
TCOL (ecolor# -—-) 
TCOL? (== color#) 
TDIRK (direction --) 


36 


34 


40 


an 


TDIR? 
TDRAW 


(-- direction) 
Cx yom) 


TF (==) 


TFWD 
TGO 
TMOVE 
TFLOT 
TSCR? 
TTN 
TURN 
TXY? 


xX 
WARF 
xX 


XSTK 


xX 
Y/N 
YSTK 


(ri m-) 
(ri =~) 

Cx yo ==) 

(-—) 

(-- color#) 
(--) 

(ro =} 

C-— te ty) 


(dur frail frqaZz tim vol--) 


(joystick# -- -1/0/1) 


(-- 0/1) 
(joystick# -- -1/0/1) 


N 


bh 


Limited Warranty on Media and Hardware Accessories. Atari, Inc. (“Atari”) warrants to the original 
consumer purchaser that the media on which APX Computer Programs are recorded and any 
hardware accessories sold by APX shall be free from defects in material or workmanship for a 
period of thirty (30) days from the date of purchase. If you discover such a defect within the 30-day 
period, call APX fora return authorization number, and then return the product to APX along with 
proof of purchase date. We will repair or replace the product at our option. If you ship an APX 
product for in-warranty service, we suggest you package it securely with the problem indicated in 
writing and insure it for value, as Atari assumes no liability for loss or damage incurred during 
shipment. 


This warranty shall not apply if the APX product has been damaged by accident, unreasonable 
use, use with any non-ATARI products, unauthorized service, or by other causes unrelated to 
defective materials or workmanship. 


Any applicable implied warranties, including warranties of merchantability and fitness for a 
particular purpose, are also limited to thirty (30) days from the date of purchase. Consequential or 
incidental damages resulting from a breach of any applicable express or implied warranties are 
hereby excluded. 


The provisions of the foregoing warranty are valid in the U.S. only. This warranty gives you 
specific legal rights and you may also have other rights which vary from state to state. Some states 
do not allow limitations on how long an implied warranty lasts, and/or do not allow the exclusion of 
incidental or consequential damages, so the above limitations and exclusions may not apply to 
you. 


Disclaimer of Warranty on APX Computer Programs. Most APX Computer Programs have been 
written by people not employed by Atari. The programs we select for APX offer something of value 
that we want to make available to ATARI Home Computer owners. In order to economically offer 
these programs to the widest number of people, APX Computer Programs are not rigorously 
tested by Atari and are sold on an “as is” basis without warranty of any kind. Any statements 
concerning the capabilities or utility of APX Computer Programs are not to be construed as 
express or implied warranties. 


Atari shall have no liability or responsibility to the original consumer purchaser or any other 
person or entity with respect to any claim, loss, liability, or damage caused or alleged to be caused 
directly or indirectly by APX Computer Programs. This disclaimer includes, but is not limited to, 
any interruption of services, loss of business or anticipatory profits, and/or incidental or 
consequential damages resuiting from the purchase, use, or operation of APX Computer 
Programs. 


Some states do not allow the limitation or exclusion of implied warranties or of incidental or 


consequential damages, so the above limitations or exclusions concerning APX Computer 
Programs may not apply to you. 


For the complete list of current 
APX programs, ask your ATARI retailer 
for the APX Product Catalog 


Ne 4” ATARI 
PROGRAM 
EXCHANGE 


P.O. Box 3705 
Senta Clara, CA 95055 


We're interested in your experiences with APX programs 
and documentation. both favorable and unfavorabie. 
Many of our authors are eager to improve their programs 
if they know what you want. And, of course. we want to 
know about any bugs that slipped by us. so that the 
author can fix ther. We aiso want to know whether our 


1. Name and APX number of program. 


Review Form 


instructions are meeting your needs. You are our best 
source for suggesting improvements! Please help us by 
taking a moment to fill in this review sheet. Fold the sheet 
in thirds and seal it so that the address on the bottom of 
the back becomes the envelope front. Thank you for 
helping us! 


2. If you nave problems using the program, please describe them here. 


3. What do you especially like about this program? 


4. What do you think the program's weaknesses are? 


5. How can the catalog description be more accurate or comprehensive? 


6. Onascaleof1 to 10. 1 being “poor” and 10 being “excellent”. please rate the following aspects of this program: 


Easy to use 


User-oriented (e.g.. menus. prompts. clear language) 


Enjoyabie 

Seif-instructive 

Useful (non-game programs) 
imaginative graphics and sound 


7. Describe any technical errors you found in the user instructions (please give page numbers). 


8. What did you especiaily like about the user instructions? 


9. What revisions or additions would improve these instructions? 


10. On a scale of 1 to 10, 1 representing “poor” and 10 representing “excellent”, how wouid you rate the user 
instructions and why? 


11. Other comments about the program or user instructions: 


ATARI Program Exchange 
P.O. Box 3705 
Santa Clara. CA 95055 


{seat here} 


